home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rbprndmo / samplemd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-29  |  3.0 KB  |  94 lines
  1. VERSION 5.00
  2. Object = "{E4EBAA9E-220B-11D2-9D31-646E02C10627}#4.0#0"; "RobPrDem1.ocx"
  3. Begin VB.MDIForm SampleMdi 
  4.    Appearance      =   0  'Flat
  5.    BackColor       =   &H00FFFFFF&
  6.    Caption         =   "SampleMdi"
  7.    ClientHeight    =   5715
  8.    ClientLeft      =   2295
  9.    ClientTop       =   1935
  10.    ClientWidth     =   6795
  11.    LinkTopic       =   "MDIForm1"
  12.    WindowState     =   2  'Maximized
  13.    Begin VB.PictureBox Picture1 
  14.       Align           =   1  'Align Top
  15.       Appearance      =   0  'Flat
  16.       BackColor       =   &H80000004&
  17.       ForeColor       =   &H80000008&
  18.       Height          =   435
  19.       Left            =   0
  20.       ScaleHeight     =   405
  21.       ScaleWidth      =   6765
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   6795
  25.       Begin RoboPrint.RoboPrintVB5 RoboPrintVB51 
  26.          Height          =   360
  27.          Left            =   120
  28.          TabIndex        =   3
  29.          Top             =   0
  30.          Width           =   720
  31.          _ExtentX        =   1270
  32.          _ExtentY        =   635
  33.          BtnPrint_ToolTipText=   "Print.."
  34.          BeginProperty TitlesFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  35.             Name            =   "MS Sans Serif"
  36.             Size            =   8.25
  37.             Charset         =   177
  38.             Weight          =   400
  39.             Underline       =   0   'False
  40.             Italic          =   0   'False
  41.             Strikethrough   =   0   'False
  42.          EndProperty
  43.          ToFit           =   1
  44.       End
  45.       Begin VB.CommandButton Command1 
  46.          Height          =   322
  47.          Index           =   2
  48.          Left            =   1860
  49.          Picture         =   "SampleMdi.frx":0000
  50.          Style           =   1  'Graphical
  51.          TabIndex        =   4
  52.          Top             =   30
  53.          Width           =   345
  54.       End
  55.       Begin VB.CommandButton Command1 
  56.          Height          =   322
  57.          Index           =   1
  58.          Left            =   1395
  59.          Picture         =   "SampleMdi.frx":039B
  60.          Style           =   1  'Graphical
  61.          TabIndex        =   2
  62.          Top             =   30
  63.          Width           =   345
  64.       End
  65.       Begin VB.CommandButton Command1 
  66.          Height          =   322
  67.          Index           =   0
  68.          Left            =   915
  69.          Picture         =   "SampleMdi.frx":08FD
  70.          Style           =   1  'Graphical
  71.          TabIndex        =   1
  72.          Top             =   30
  73.          Width           =   345
  74.       End
  75.    End
  76. Attribute VB_Name = "SampleMdi"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Private Sub Command1_Click(Index As Integer)
  82. Select Case Index
  83. Case 1
  84. MsFlexSample.Show
  85. MsFlexSample.ZOrder 0
  86. Case 0
  87. DBGridSample.Show
  88. DBGridSample.ZOrder 0
  89. Case 2
  90. MsChartFrm.Show
  91. MsChartFrm.ZOrder 0
  92. End Select
  93. End Sub
  94.